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-- Swapper. Mesa Edited by Sandman on Jul 12, 1978 4:05 PM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [ 

AllocHandle, Alloclnfo, AllocObject, Def aultDataSegmentlnfo, 

Defaul tFileSegmen t Info, Def aul tFrameSegmentlnfo, Defaul tTableSe gment Info, 

PageState, SwappingProcedure, SwapStrategy] , 
AHoDefs: FROM "altodefs" USING [ 

BYTE, MaxVMPage, PageCount, PageNumber, PageSize], 
AltoFileDefs: FROM "altof iledefs" USING [eofDA, vDC], 
BootDefs: FROM "bootdefs" USING [ 

BusyPage, FreePage, PageMap, PositionSeg, SystemTable, SystemTableHandle, 

Table, TableHandle], 
ControlDefs: FROM "controldef s" USING [ 

CSegPrefix, GFT, Global FrameHandle, Nul IGlobalFrame], 
DiskDefs: FROM "diskdefs" USING [OiskRequest , SwapPages], 
FrameDefs: FROM "framedefs" USING [FlushLargeFrames, Val idateGlobal Frame], 
InlineDefs: FROM M inl inedef s" USING [BITAND], 
NucleusDefs: FROM "nucleusdef s M , 

ProcessDefs: FROM "processdef s M USING [Disablelnterrupts , Enablelnterrupts] , 
SDDefs: FROM "sddefs" USING [SD, sGFTLength], 
SegmentDefs: FROM "segmentdef s" USING [ 

DataSegmentHandle, DefaultBase, FileSegmentHandle, FrobHandle, 

FrobLink, FrobNull, Inval idSegmentSize, MaxLocks, MaxRefs, Object, 

ObjectHandle, ObjectType, OpenFile, PageNumber, RemoteSegCommand, 

SegmentHandle] ; 

DEFINITIONS FROM SegmentDefs; 

Swapper: PROGRAM [ffvmp, Ifvmp: Al toDefs . PageNumber] 
IMPORTS BootDefs, DiskDefs, FrameDefs, SegmentDefs 
EXPORTS AllocDefs, BootDefs, FrameDefs, NucleusDefs, SegmentDefs 
SHARES SegmentDefs = BEGIN 

Alloclnfo: TYPE = AllocDefs .Al loclnfo; 
AllocHandle: TYPE - Al locDef s .AllocHandle; 
PageState: TYPE « Al locDefs .PageState; 
SwappingProcedure: TYPE = AllocDefs .SwappingProcedure; 
SwapStrategy: TYPE » AllocDefs .SwapStrategy ; 
PageCount: TYPE = AltoDef s . PageCount ; 
PageNumber: TYPE = Al toDefs .PageNumber; 
TableHandle: TYPE - BootDefs . TableHandle; 
SegmentHandle: TYPE = SegmentDefs .SegmentHandle; 
DataSegmentHandle: TYPE = SegmentDefs .DataSegmentHandle; 
FileSegmentHandle: TYPE = SegmentDefs . FileSegmentHandle; 
MaxVMPage: PageNumber = Al toDefs .MaxVMPage; 
PageSize: CARDINAL = Al toDefs . PageSize; 

PAGEDISP: TYPE - MACHINE DEPENDENT RECORD [ 
page: [0. .MaxVMPage] , 
disp: [0. .PageSize)]; 

PageFromAddress: PUBLIC PROCEDURE [a:POINTER] RETURNS [PageNumber] - 
BEGIN 

RETURN[LOOPHOLE[a, PAGEDISP], page] 
END; 

AddressFromPage: PUBLIC PROCEDURE [p :PageNumber] RETURNS [POINTER] - 
BEGIN 

RETURN[LOOPHOLE[PAGEDISP[p,0]]] 
END; 

PagePointer: PUBLIC PROCEDURE [a:POINTER] RETURNS [POINTER] ■ 
BEGIN 

LOOPHOLE[a, PAGEDISP]. disp «- 0; 
RElURN[a] 
END; 

-- Data Segments 

DefaultBase: PageNumber ■ SegmentDefs .Def aul tBase; 

NewDataSegment: PUBLIC PROCEDURE [base:PageNumber , pages :PageCount] 
RETURNS [seg:DataSegmentHandle] - 
BEGIN 
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RETURN[Mak8DataSegment[base, pages, AllocDef s .Def aul tDataSegmentlnfo]] 
END; 

NewFrameSegment: PUBLIC PROCEDURE [pages : PageCount] 
RETURNS [seg:DataSegmentHandle] - 
BEGIN 

RETURN[MakeDataSegment[Defau1tBase, pages, AllocDef s. Def aultFrameSegment Info]] 
END; 

MakeDataSegment: PUBLIC PROCEDURE [ 

base: PageNumber, pages: PageCount, info: Alloclnfo] 

RETURNS [seg: DataSegmentHandle] » 

BEGIN 

IF pages -IN (0. .MaxVMPage+1] THEN ERROR Inval idSegmentSize[pages] ; 

seg *- AllocateDataSegment[] ; 

segt «- [busy:, body: segment[data[VMpage: , pages:, unused:]]]; 

base <- alloc. alloc[base, pages, seg, info 

I UNWIND »> LiberateDataSegment[seg]]; 
segt <- [busy: FALSE, 

body: segment[data[VMpage: base, pages: pages, unused: 0]]]; 
alloc. update[base, pages, inuse, seg]; 
RETURN 
END; 

BootDataSegment: PUBLIC PROCEDURE [base: PageNumber, pages:PageCount] 
RETURNS [seg:DataSegmentHandle] » 
BEGIN OPEN AllocDefs; 
i: PageNumber; 
FOR i IN [base. .base+pages) DO 

IF alloc. status[i]. status # busy THEN ERROR; 

ENDLOOP; 
seg <- AllocateDataSegment[]; 
segt 4- [busy: FALSE, 

body: segment[data[VMpage: base, pages: pages, unused: 0]]]; 
alloc. update[base, pages, inuse, seg]; 
RETURN 
END; 

DeleteDataSegment: PUBLIC PROCEDURE [seg:DataSegmentHandle] = 
BEGIN 

base: PageNumber; pages: PageCount; 
Val idateDataSegment[seg] ; 
base «- seg.VMpage; pages *- seg. pages; 
alloc. update[base, pages, busy, NIL]; 
LiberateDataSegment[seg] ; 
alloc .update[base, pages, free, NIL]; 
RETURN 
END; 

DataSegmentAddress: PUBLIC PROCEDURE [seg :DataSegmentHandle] RETURNS [POINTER] = 
BEGIN 

RETURN[LOOPHOLE[PAGEDISP[seg.VMpage,0]]] 
END; 
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-- Swapping Segments 

SwapError: PUBLIC SIGNAL [seg: FileSegmentHandle] - CODE; 

MakeSwappedln: PUBLIC PROCEDURE [ 

seg: FileSegmentHandle, base: PageNumber, info: Alloclnfo] ■ 
BEGIN 

vmpage: PageNumber; 
alreadyln: BOOLEAN <- FALSE; 

IF seg. lock ■ MaxLocks THEN ERROR SwapError[seg] ; 
ValidateObject[seg]; 
ProcessDef s .Disablelnterrupts[]; 
IF ~seg. swappedin THEN 
BEGIN 

ProcessDefs.EnableInterrupts[]; 

IF seg.f ile.swapcount = MaxRefs THEN SIGNAL SwapError[seg] ; 
IF ~seg .file. open THEN OpenFile[seg. f ile] ; 
vmpage <- alloc. alloc[base, seg. pages, seg, info]; 
Process Defs.DisableInterrupts[]; 
IF ~seg . swappedin THEN 
BEGIN 

Process Defs. En ablelnterrupts[]; 

BEGIN ENABLE UNWIND »> al loc . update[vmpage , seg. pages, free, NIL]; 
seg.VMpage <- vmpage; 
WITH s: seg SELECT FROM 
disk => 

IF (s. hint. page # s.base OR s. hint. da « Al toFileDef s .eofDA) 
AND BootDefs.PositionSeg[@s,TRUE] AND s. pages » 1 
THEN NULL ELSE MapVM[@s, ReadD]; 
remote *> s.proc[@s, remoteRead]; 
ENDCASE; 
END; 
ProcessDefs.DisableInterrupts[]; 
seg.f ile. swapcount *- seg.f ile. swapcount+1; 
alloc. update[vmpage, seg. pages, inuse, seg]; 
seg. swappedin <- TRUE; 
END 
ELSE alreadyln <- TRUE; 
END; 
seg. lock «- seg.lock+1; 

IF alreadyln THEN alloc. update[vmpage, seg. pages, free, NIL]; 
Process Defs. En ablelnterrupts[]; 
RETURN 
END; 

Swapln: PUBLIC PROCEDURE [seg : FileSegmentHandle] = 
BEGIN 

MakeSwappedIn[seg, Defaul tBase, AllocDef s.Def aul tFileSegmentlnfo] ; 
RETURN 
END; 

Unlock: PUBLIC PROCEDURE [seg : FileSegmentHandle] = 
BEGIN OPEN seg; 

IF lock * THEN ERROR SwapError[seg] ; 
Val idateObject[seg]; 
ProcessDef s .Disablelnterrupts[]; 
lock <- lock-1; 

ProcessDefs .Enablelnterrupts[]; 
RETURN 
END; 

SwapUp: PUBLIC PROCEDURE [seg: FileSegmentHandle] - 
BEGIN OPEN seg; 
ValidateObject[seg]; 
IF swappedin AND write THEN 
BEGIN 

WITH s: seg SELECT FROM 
disk *> 
BEGIN 
IF s. hint. page # base OR s. hint. da ■ Al toFileDef s. eofDA THEN 

[] <- BootDefs.PositionSeg[Qs, FALSE]; 
MapVM[0s, WriteD]; 
END; 
remote a > s.proc[@s, remoteWr ite] ; 
ENDCASE; 
END; 
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RETURN 
END; 

SwapOut: PUBLIC PROCEDURE [seg : FileSegmentHandle] ■ 
BEGIN OPEN seg; 
temp: PageNumber; 
Val idateObject[seg]; 
SwapUp[seg]; 

ProcessDefs.DisableInterrupts[]; 

IF -swappedin THEN BEGIN ProcessDef s .Enablelnterrupts[] ; RETURN END; 
IF lock § THEN 

BEGIN ProcessDefs.EnableInterrupts[]; ERROR SwapError[seg] END; 
busy <- TRUE; 

alloc. update[temp <- VMpage, pages, busy, NIL]; 
swappedin «- FALSE; 
busy «- FALSE; 
VMpage <- 0; 

f ile.swapcount <~ f ile.swapcount-1; 
ProcessDefs.Enab1eInterrupts[]; 
— IF swapcount - THEN CloseFile[]; ??? 
alloc. update[temp, pages, free, NIL]; 
RETURN 
END; 

remoteRead: RemoteSegCommand a 0; 
remoteWrite: RemoteSegCommand s 1; 

SegmentFault: PUBLIC SIGNAL [seg : FileSegmentHandle , pages :PageCount] = CODE; 

MapVM: PUBLIC PROCEDURE [seg : Fil eSegmentHandl e , dc: Al toFileDef s . vDC] ■ 
BEGIN OPEN seg; 

page: PageNumber; byte: CARDINAL; temp: PageCount; 
arg: swap DiskDef s .DiskRequest; 
WITH s: seg SELECT FROM 
disk ■> 
BEGIN 

arg <- DiskDef s.DiskRequest[AddressFromPage[s .VMpage] , @s. hint. da, 
s.base, s . base+s.pages-1, 0s.file.fp, FALSE, dc, dc, FALSE, 
swap[NIL]]; 
IF s. hint. page # s.base THEN ERROR SwapError[@s]; 
[page, byte] <- DiskDef s .SwapPages[@arg] ; 
temp <- page-base+(IF byte=0 THEN ELSE 1); 
IF temp=0 THEN ERROR SegmentFaul t[@s ,0] ; 
IF temp # pages THEN 

BEGIN SIGNAL SegmentFaul t[@s, temp] ; 
alloc. update[s . VMpage+temp, s. pages-temp, free, NIL]; 
s. pages *- temp; 
END; 
END; 
remote »> ERROR SwapError[@s]; 
ENDCASE; 
RETURN 
END; 
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-- Code Swapping and Swap Strategies 

trySwapInProgress: BOOLEAN <- FALSE; 

TrySwapping: SwappingProcedure a 
BEGIN 

did: BOOLEAN; 

sp, next: POINTER TO SwapStrategy ; 
ProcessDefs.DisableInterrupts[]; 
IF trySwapInProgress THEN 

BEGIN 

ProcessDefs.EnableInterrupts[]; 

RETURN[TryCodeSwapping[needed, info, seg]]; 

END; 
trySwapInProgress «- TRUE; 
ProcessDefs.EnableInterrupts[]; 
did 4- TRUE; 
FOR sp <- StrategyList, next UNTIL sp ■ NIL DO 

next <- sp . 1 ink; 

IF sp.proc[needed, info, seg] THEN EXIT; 

REPEAT FINISHED ■> did «- FALSE; 

ENDLOOP; 
trySwapInProgress ♦■ FALSE; 
RETURN[did] 
END; 

CantSwap: PUBLIC SwappingProcedure ■ 
BEGIN 

RETURN[FALSE] 
END; 

pageRover: Al toDef s .PageNumber <- 0; 

TryCodeSwapping: PUBLIC SwappingProcedure = 
BEGIN OPEN ControlDefs; 
foundHole: BOOLEAN «- FALSE; 
pass: {first, second, quit} «- first; 
okay: BOOLEAN; 

base, page: AT toDefs .PageNumber ; 
segment: SegmentHandle; 
status: AllocDefs.PageState; 
p: POINTER TO CSegPrefix; 
n, inc: PageCount; 
page <- n <- 0; 

ProcessDefs .Disablelnterrupts[] ; 
segment +- alloc. status[pageRover]. seg; 
IF segment # NIL THEN 

WITH s: segment SELECT FROM 
data s > pageRover <- s.VMpage; 
file -> pageRover ♦- s.VMpage; 
ENDCASE; 
base <- pageRover; 

DO -- until we've looked at them all twice 
[segment, status] <- alloc. status[pageRover] ; 
okay ♦- FALSE; 
SELECT status FROM 
inuse => 

WITH s: segment SELECT FROM 
data *> inc <- s. pages; 
file ■> 
BEGIN 

IF s.lock - AND -s. write THEN 
BEGIN 

IF s. class = code THEN 
BEGIN 

p <- AddressFromPage[s.VMpage]; 
IF p.swapinfo > 1 THEN p <~ p + p.swapinfo; 
IF p.swapinfo * THEN okay <- TRUE ELSE p.swapinfo «- 0; 
END 
ELSE okay ♦• TRUE; 
END; 
inc «- s. pages; 
END; 
ENDCASE; 
ENDCASE -> 
BEGIN 
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IF status - free THEN okay <- TRUE; 
inc ♦■ 1; 
END; 
IF -okay THEN 

BEGIN page *- n <- ; IF pass - quit THEN EXIT; END 
ELSE 
BEGIN 

IF page ■ THEN page «- pageRover; 
IF (n <- n+inc) >= needed THEN 

BEGIN foundHole «- TRUE; EXIT END; 
END; 
IF (pageRover «- pageRover+inc) > MaxVMPage THEN 

IF pass ■ quit THEN EXIT ELSE pageRover <- page «- n «- 0; 
IF pageRover a base THEN pass *- IF pass ■ first THEN second ELSE quit; 
ENDLOOP; 
base «- page + n; 
WHILE page < base DO 

segment «- alloc. status[page] .seg; 
IF segment # NIL THEN 

WITH s: segment SELECT FROM 
data »> 

page «- s.VMpage + s. pages; 
file => 
BEGIN 

page «- s.VMpage; 
IF s.lock = THEN 
BEGIN 

IF s. class = code THEN UpdateCodebases[@s]; 
IF -s. write THEN SwapOutUnlocked[@s] ; 
alloc. update[page, s. pages, free, NIL]; 
END; 
page «- page + s. pages; 
END; 
ENDCASE 
ELSE page <- page + 1; 
ENDLOOP; 
ProcessDefs.EnableInterrupts[]; 
RETURN[foundHole] 
END; 

SwapOutCode: PUBLIC PROCEDURE [f:ControlDefs .Global FrameHandle] * 
BEGIN OPEN SegmentDefs, ControlDefs; 
cseg: SegmentDefs . FileSegmentHandle = f .codesegment; 
FrameDefs .Val idateGloba!Frarne[f ] ; 
ProcessDefs.DisableInterrupts[]; 
IF cseg.swappedin THEN 

BEGIN 

Swapln[cseg]; -- lock it so it won't go away 

UpdateCodebases[cseg]; 

Unlock[cseg]; SwapOut[cseg] ; 

END; 
ProcessDefs.EnableInterrupts[]; 
RETURN 
END; 

LastResort: SwapStrategy <- SwapStrategy[NIL,TryCodeSwapping]; 
StrategyList: POINTER TO SwapStrategy <- ©LastResort; 

AddSwapStrategy: PUBLIC PROCEDURE [strategy :POINTER TO SwapStrategy] - 
BEGIN 

sp: POINTER TO SwapStrategy; 
ProcessDefs.DisableInterrupts[]; 
FOR sp «- StrategyList, sp.link 
UNTIL sp ■ NIL DO 

IF sp * strategy THEN RETURN; 
ENDLOOP; 
strategy . 1 ink *- StrategyList; 
StrategyList <- strategy; 
ProcessDefs.EnableInterrupts[]; 
RETURN 
END; 

RemoveSwapStrategy: PUBLIC PROCEDURE [strategy rPOINTER TO SwapStrategy] - 
BEGIN 

sp: POINTER TO SwapStrategy; 
prev: POINTER TO SwapStrategy *■ NIL; 
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ProcessDef s .Disab1elnterrupts[]; 
FOR sp <- StrategyList, sp . 1 ink UNTIL sp * NIL DO 
IF sp ■ strategy THEN 
BEGIN 
IF prev * NIL 

THEN StrategyList «- sp.link 
ELSE prev. link «- sp.link; 
EXIT END; 
prev «- sp; 
ENDLOOP; 
ProcessDef s. En ablelnterrupt s[]; 
strategy. 1 ink <~ NIL; 
RETURN 
END; 
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-- Memory Allocator 

PageMap: BootDef s.PageMap; 

FreePage: SegmentHandle ■ BootDef s . FreePage; 

BusyPage: SegmentHandle B BootDef s .BusyPage; 

-- *** The framesize of PageAvailable is depended on below *** 

PageAvailable: PROCEDURE [page: PageNumber, info: Alloclnfo] 
RETURNS [available: BOOLEAN] - 
BEGIN 

seg: SegmentHandle; 
ProcessDefs.DisableInterrupts[j; 
seg «- PageMap[page]; 
available <- FALSE; 

IF seg ■ FreePage THEN available <- TRUE 
ELSE IF seg # BusyPage THEN 
WITH s: seg SELECT FROM 
file «> 

IF (info. effort ■ hard OR info. swapunlocked) AND 

s.lock a AND ~s. write AND ~s.busy THEN available <- TRUE; 
ENDCASE; 
ProcessDefs.EnableInterrupts[]; 
RETURN 
END; 

-- *** PageStatus' framesize must be <= PageAvail able' s *** 

PageStatus: PROCEDURE [page: PageNumber] 

RETURNS [seg: SegmentHandle, status: PageState] ■ 

BEGIN 

ProcessDefs.DisableInterrupts[]; 

seg *- PageMap[page]; 

SELECT seg FROM 

BusyPage => BEGIN status «- busy; seg *- NIL END; 
FreePage => BEGIN status <- free; seg <- NIL END; 
ENDCASE O 

IF seg. busy THEN BEGIN status <- free; seg «- NIL; END 
ELSE status +■ inuse; 
ProcessDefs.EnableInterrupts[]; 
RETURN 
END; 

InsufficientVM: PUBLIC SIGNAL [needed: PageCount] ■ CODE; 

VMnotFree: PUBLIC SIGNAL [base: PageNumber, pages: PageCount] = CODE; 

AllocVM: PROCEDURE [base: PageNumber, pages: PageCount, 
seg: SegmentHandle, info: Alloclnfo] 
RETURNS [PageNumber] ■ 
BEGIN 

tempseg: SegmentHandle; 
n: CARDINAL; 
direction: INTEGER; 
vm: PageNumber; 
FrameDef s . FlushLargeFrames[]; 
IF base # DefaultBase THEN 

DO -- repeat if requested VM not free 
ProcessDefs.DisableInterrupts[]; 
FOR vm IN [base., base+pages) DO 

IF -alloc. avail[base, info] THEN EXIT; 
REPEAT 

FINISHED ■> GOTO found; 
ENDLOOP; 
ProcessDefs.EnableInterrupts[]; 
SIGNAL VMnotFree[base, pages]; 
REPEAT 

found -> NULL 
ENDLOOP 
ELSE 

DO -- repeat if insufficient VM 

ProcessDefs.DisableInterrupts[]; 

n «- 0; -- count of contiguous free pages 

IF info. direction ■ bottomup THEN 

BEGIN direction *- 1; base «- ffvmp; END 
ELSE 

BEGIN direction *- -1; base <- Ifvmp; END; 
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WHILE base IN [ffvmp. . Ifvmp] DO 

IF ~alloc.avail[base, info] THEN n *- 
ELSE IF (n <- n+1) - pages THEN 

BEGIN IF direction>0 THEN base <- base-n+1; GOTO foundHole END; 
base *- base+direction 
ENDLOOP; 
ProcessDefs. Enablelnterrupts[]; 
IF info. class « frame OR info. class ■ table 

OR ~TrySwapping[pages, info, seg] THEN SIGNAL Insuff icientVM[pages] ; 
REPEAT 

foundHole ■> NULL; 
ENDLOOP; 
FOR vm IN [base. .base+pages) DO 
tempseg «- al loc.status[vm] . seg; 
IF tempseg § NIL THEN 

WITH s: tempseg SELECT FROM 
file -> 
BEGIN 

alloc. update[s.VMpage, s. pages, free, NIL]; 
IF s. class = code THEN Upda teCodebases[@s] ; 
SwapOutUnlocked[@s]; 
END; 
ENDCASE; 
ENDLOOP; 
alloc. update[base, pages, busy, seg]; 
Process Defs. En ablelnterrupts[]; 
RETURN[base] 
END; 



__ *** 



UpdateVM's framesize must be <* PageAvailable's 



UpdateVM: PROCEDURE [base: PageNumber, pages: PageCount, status: PageState, 
seg: SegmentHandle] a 
BEGIN 
IF status ■ free THEN 

BEGIN 

Process Defs.DisableInterrupts[]; 

ffvmp <- MIN[f f vmp.base] ; 

Ifvmp «- MAX[lf vmp, base+pages-1]; 

ProcessDefs.EnableInterrupts[]; 

END; 
seg <- SELECT status FROM 

free => FreePage, 

busy s > BusyPage, 

ENDCASE »> IF seg » NIL THEN BusyPage ELSE seg; 
Process Defs.DisableInterrupts[]; 

FOR base IN [base, .base+pages) DO PageMap[base] *■ seg; ENDLOOP; 
ProcessDef s .Enablelnterrupts[]; 
RETURN 
END; 

- *** SwapOutUnlocked's framesize must be <= PageAvailable's *** 

SwapOutUnlocked: PROCEDURE [seg: FileSegmentHandle] » 
BEGIN 

ProcessDefs . Disablelnterrupts[] ; 
seg . swappedin <- FALSE; 
seg.VMpage <- 0; 

seg. file, swapcount <- seg.f ile. swapcount-1; 
ProcessDefs. En ablelnterrupts[]; 
END; 



-- *** 



UpdateCodebases ' s framesize must be O PageAvailable's 



UpdateCodebases: PROCEDURE [seg: FileSegmentHandle] ■ 
BEGIN OPEN ControlDefs; 

lastUser, f: ControlDefs .Global FrameHandle; 
nUsers, i: CARDINAL; 
epbase: CARDINAL; 
ProcessDefs. Disablelnterrupts[]; 
nUsers «- 0; 

FOR i IN [l..SDDefs.SD[SDDefs.sGFTLength]) DO 
[frame: f , epbase: epbase] *- GFT[i]; 

IF f § NullGlobalFrame AND epbase « AND f .codesegment ■ seg THEN 
BEGIN 
IF ~f . code. swappedout THEN 
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BEGIN 

f .code.coclebase «- f .code.codebase - AltoDef s .PageSize*seg.VMpage; 
f .code.swappedout «- TRUE; 
END; 
IF -f. shared THEN EXIT; 
nUsers «- nUsers+1; 
lastUser ♦■ f; 
END; 
REPEAT 

FINISHED «> IF nUsers - 1 THEN lastUser . shared «- FALSE; 
ENDLOOP; 
ProcessDef s.EnableInterrupts[]; 
RETURN 
END; 

SetAllocationObject: PUBLIC PROCEDURE [new: AllocHandle] 
RETURNS [old: AllocHandle] ■ 
BEGIN 

ProcessDef s .Disablelnterrupts[]; 
old <- alloc; 
alloc «- new; 

ProcessDefs.EnableInterrupts[]; 
RETURN 
END; 

GetAllocationObject: PUBLIC PROCEDURE RETURNS [old: AllocHandle] ■ 
BEGIN RETURN[alloc] END; 
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-- Primative Object Allocation 

ObjectSeal: Al toDef s.BYTE - 21B; 

InvalidObject: PUBLIC SIGNAL [object: POINTER] « CODE; 

AllocateObject: PUBLIC PROCEDURE [size: CARDINAL] RETURNS [ObjectHandle] ■ 
BEGIN OPEN BootDefs; 
frob: FrobLink; 
frobject: FrobHandle; 
table: TableHandle; 
base, length: CARDINAL; 
ProcessDef s.Disabl el nterr up ts[]; 

FOR table ♦■ systemTable. table, table. link UNTIL table ■ NIL DO 
IF table. free. fwdp # FIRST[FrobLink] THEN 
BEGIN 

base <- LOOPHOLE[table, CARDINAL]; 

FOR frob <- table. free. fwdp, frobject .fwdp UNTIL frob - FIRST[FrobLink] DO 
frobject «- base+frob; 
length «- frobject. size; 
UNTIL frob+length > FrobNull DO 

WITH n: LOOPHOLE[f robject+1 ength , ObjectHandle] SELECT FROM 
free «> -- coalesce*nodes 
BEGIN 

(base+n. fwdp) .backp «- n.backp; 
(base+n. backp) .fwdp *- n.fwdp; 
length *- length + n.size; 
END; 
ENDCASE => EXIT; 
ENDLOOP; 
SELECT length FROM 
a size a > 
BEGIN 

(base+f robject . fwdp) .backp «- frobject. backp; 
(base+f robject. backp) .fwdp <- frobject .fwdp; 
table. f ree. size «- table. f ree. size + size; 
Process Defs. En ablelnterrupts[]; 
RETURN[frobject]; 
END; 
> size a > 
BEGIN 

frobject. size ♦- length - size; 
table. f ree. size <- table. free. size + size; 
Process Defs. En ablelnterrupts[]; 
RETURN[f robject+1 ength- size]; 
END; 
ENDCASE => frobject. size <- length; 
ENDLOOP; 
END; 
ENDLOOP; 
table ♦- AllocateTable[! UNWIND => ProcessDef s .Enablelnterrupts[]] ; 
frob <- table. free. fwdp; 

frobject <- LOOPHOLE[table, CARDINAL]+f rob; 
frobject. size *- frobject .size - size; 
table. f ree. size <- table, f ree. size + size; 
ProcessDef s .Enable In terrupts[]; 
RETURN[f rob ject+f robject. size]; 
END; 

LiberateObject: PUBLIC PROCEDURE [object: ObjectHandle] » 
BEGIN 

table: TableHandle <- SegmentDefs . PagePointer[object]; 
size, base: CARDINAL; 

frob: FrobLink <- LOOPHOLE[Inl ineDef s ,BITAND[LOOPHOLF[ob ject] , 377B]]; 
base <- LOOPHOLE[table]; 
Val idateObject [object]; 
size 4- WITH o: object SELECT FROM 

segment => SELECT o.type FROM 

data »> SIZE[data segment Object], 
ENDCASE => SIZE[file segment Object], 

file «> SIZE[file Object], 

ENDCASE => SIZE[length Object]; 
ProcessDef s.Di sab lelnterrupts[ ]; 
IF ( table, free. size <- table . free . size - size) B THEN 

LiberateTable[table 1 UNWIND «> ProcessDef s .Enabl elnterrupts[]] 
ELSE 
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BEGIN 

objectt «- Object[FALSE, f ree[seal : ObjectSeal, size: size, 
fwdp: table. free. fwdp, backp: FIRST[FrobLink]]]; 

(base+table. free. fwdp) .backp ♦- frob; 

table. free. fwdp *- frob; 

END; 
ProcessDefs.EnableInterrupts[]; 
RETURN 
END; 

AllocateTable: PROCEDURE RETURNS [newTable: TableHandle] ■ 
BEGIN OPEN BootDefs. SegmentDef s ; 
frob: FrobLink ■ LOOPHOLE[SIZE[Table]] ; 
base: CARDINAL; 
page: PageNumber; 
page ♦* 

alloc. alloc[DefaultBase, 1, NIL, Al locDef s .Def aul tTableSegmentlnfo] ; 
newTable «- AddressFromPage[page] ; 
newTablet «- 

Table[[FALSE, f ree[ObjectSeal , , frob, frob]] , systemTable. table , NIL]; 
base <- LOOPHOLE[newTable]; 
(base+frob)t <- [FALSE, f ree[ObjectSeal , Al toDef s.PageSize-SIZE[Table] , 

FIRST[ FrobLink], FIRST[FrobLink]]] ; 
systemTable. table <- newTable; 

systemTable. table, seg <- BootDataSegment[page, 1]; 
RETURN 
END; 

LiberateTable: PROCEDURE [table:TableHandle] ■ 
BEGIN 

current: TableHandle; 
prev: TableHandle <- NIL; 

FOR current <- systemTable. table, current. link UNTIL current = NIL DO 
IF current - table THEN 
BEGIN 
IF prev ■ NIL 

THEN systemTable. table «- current. link 
ELSE prev. link <- current. 1 ink; 
-- oops: this had better not recurl 
DeleteDataSegment[ cur rent. seg]; 
RETURN 
END; 
prev <- current; 
ENDLOOP; 
ERROR InvalidObject[table]; 
END; 

ValidateObject: PUBLIC PROCEDURE [object :ObjectHandle] ■ 
BEGIN 

t: TableHandle; 

table: TableHandle = PagePointer[object]; 
BEGIN 
IF object = NIL OR Inl ineDef s .BITAND[LOOPHOLE[object, CARDINAL], 1] » 1 OR 

object. tag = free THEN GOTO invalid; 
IF table. free. seal if ObjectSeal THEN GOTO invalid; 
FOR t 4- systemTable. table, t.link UNTIL t ■ NIL DO 

IF t - table THEN EXIT; 

REPEAT 

FINISHED => GOTO invalid; 

ENDLOOP; 
EXITS 

invalid => ERROR Inval idObject[object]; 
END; 
RETURN 
END; 

EnumerateObjects: PUBLIC PROCEDURE [type: ObjectType, 
proc:PROCEDURE [Ob jectHandl e] RETURNS [BOOLEAN]] 
RETURNS [object: ObjectHandle] ■ 
BEGIN 

i, j: CARDINAL; 
table: TableHandle; 

FOR table <- systemTable. table, table. link UNTIL table - NIL DO 
j <- i <- SIZE[BootDefs. Table]; 

FOR object <- (Hable.free + i, object + i UNTIL j >» Al toDef s .PageSize DO 
i <~ WITH obj: object SELECT FROM 
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segment a > SELECT obj.type FROM 

data *> SIZE[data segment Object], 

ENDCASE => SIZE[f ile segment Object], 
file -> SIZE[file Object], 
free ■> obj.size, 
ENDCASE «> SIZEpength Object]; 

J ♦" J + i; 

IF object. tag ■ type AND proc[object] THEN RETURN[object] ; 

ENDLOOP; 
ENDLOOP; 
RETURN[NIL] 
END: 
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-- Managing Data Segment Objects 

AllocateDataSegment: PROCEDURE RETURNS [DataSegmentHandle] ■ 
BEGIN 

RETURN[LOOPHOLE[AllocateObject[SIZE[data segment Object]]]]; 
END; 

ValidateDataSegment: PROCEDURE [DataSegmentHandle] » LOOPHOLE[Val idateObject]; 
LiberateDataSegment: PROCEDURE [DataSegmentHandle] « LOOPHOLE[LiberateObject]; 

GetSystomTable: PUBLIC PROCEDURE RETURNS [BootDef s .SystemTableHandle] - 
BEGIN 

RETURN[0systemTable]; 
END; 

-- Main body 

systemTable: BootDef s.SystemTable <- BootDefs.SystemTable[@PageMap, NIL]; 

systemObject: AllocDef s .AllocObject <- [ 

PageAvailable, PageStatus, UpdateVM, AllocVM]; 

alloc: AllocHandle <- ©systemObject; 

Init: PROCEDURE ■ 
BEGIN 

i: [0. .MaxVMPage]; 
FOR i IN [0. .MaxVMPage] DO 

PageMap[i] <- IF i IN [f fvmp . . If vmp] THEN FreePage ELSE BusyPage; 

ENDLOOP; 
END; 

Init[]; 

END 



